home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / sapporo / use-emac < prev   
Lisp/Scheme  |  1994-10-24  |  3KB  |  94 lines

  1. (setq mail-archive-file-name "~/Mail/posted-mail")
  2.  
  3. ; save after 1000 characters
  4. (setq auto-save-interval 100)
  5.  
  6. ; fill mode in text files
  7. (setq default-fill-column 80)
  8.  
  9. ;sets den default mode
  10. ;(setq default-major-mode 'edt-emulation-on)
  11.  
  12. ;(setq text-mode-hook
  13. ;      '(lambda ()
  14. ;         (turn-on-auto-fill)))
  15.  
  16. ; for posting news in gnus
  17.  
  18. ;(load "/usr/local/lib/emacs/lisp/nntp")
  19. ;(autoload 'gnus "/usr/local/lib/emacs/lisp/gnus" "Read network news." t)
  20. ;(autoload 'gnus-post-news "/usr/local/lib/emacs/lisp/gnus" "Post news." t)
  21.  
  22. ;(global-unset-key "\C-[[")
  23. ;(global-set-key "\C-[[-" 'backward-page)
  24.  
  25. (setq auto-raise-screen nil)
  26. (display-time)
  27. (put 'eval-expression 'disabled nil)
  28. (setq sun-esc-brackets t)
  29. ; ===============
  30. ; emacs init file 
  31. ; ===============
  32.  
  33. ; give a meaning to the keys around the cursor keys
  34. (global-unset-key "\M-[")
  35. (global-set-key "\M-\[214z" 'beginning-of-line)
  36. (global-set-key "\M-\[220z" 'end-of-line)
  37. (global-set-key "\M-\[222z" 'scroll-up)
  38. (global-set-key "\M-\[216z" 'scroll-down)
  39. (global-set-key "\M-\[218z" 'set-mark-command)
  40.  
  41. ; declare [] as brackets
  42. ; does only work if .emacs is loaded once more via load-file
  43. (modify-syntax-entry ?\[ "(]" lisp-mode-syntax-table)
  44. (modify-syntax-entry ?\] ")[" lisp-mode-syntax-table)
  45.  
  46.  
  47. (global-unset-key "\C-[[")
  48. (global-set-key "\C-[[-1z" 'make-calendar-window)
  49. (global-set-key "\C-[[-14z" 'query-replace)
  50.  
  51. ;***********************************************
  52.  
  53. ;; Load the Franz Emacs-Lisp Interface.
  54. (load "fi/site-init")
  55.  
  56. ;; Default args for fi:common-lisp.
  57. ;; Change these to match your specific setup.
  58.  
  59. (setq fi:common-lisp-buffer-name "*clim-buffer*") ;; the default is "*common-lisp*"
  60.  
  61. ;; Instead we set it to a specific directory.
  62. (setq fi:common-lisp-directory (expand-file-name "/disk/ROBOT1S4-1H/TEuR/demos/Sapporo-April-93/"))
  63.  
  64. (setq fi:common-lisp-image-name "/tools/allegro41/bin/clim")
  65.  
  66. (setq fi:common-lisp-image-arguments nil)
  67.  
  68. (setq fi:common-lisp-host "goldfinger")
  69.  
  70. (defun run-common-lisp ()
  71.   "This function starts up lisp with your defaults"
  72.   (interactive)
  73.   (fi:common-lisp fi:common-lisp-buffer-name
  74.                   fi:common-lisp-directory
  75.                   fi:common-lisp-image-name
  76.                   fi:common-lisp-image-arguments
  77.                   fi:common-lisp-host))
  78.  
  79. ;; Set up a keybinding for mycl.
  80. (setq ctlx-3-map (make-keymap))
  81. (define-key ctl-x-map "3" ctlx-3-map)
  82. (define-key ctlx-3-map "l" 'mycl)
  83.  
  84. ;; If you don't want to do the above, then this binding go to the
  85. ;; *common-lisp* buffer, causing the image to be run the first time it is
  86. ;; typed. 
  87. (define-key global-map "\C-xl" 'fi:common-lisp)
  88. (define-key global-map "\C-cb" 'fi:lisp-compile-current-buffer)
  89. (define-key global-map "\C-cd" 'fi:lisp-compile-defun)
  90.  
  91. ;; Start up a lisp image.
  92. ;(clim-buffer)
  93.  
  94.